5 NT=0
10 A = 20180; B=A
30 for K = 0 to 13; clear 
40 CY = 0;print K,@(K)
50 D = KP; if D=31 goto 80
60 if D=57 goto 90
70 goto 50
80 input "CHANGE=",L;@(K)=L
90 next K
100 A=B; for K= 0 to 13
110 %(A)=@(K); A=A+2; next K
120 if &(20) = 8 goto 30
130 C=20180; gosub 160
140 C=20190; gosub 160
150 goto 120
160 clear ; CALL C; return 
@(0) = -43
@(1) = 12341
@(2) = 19480
@(3) = 3164
@(4) = -13871
@(5) = -43
@(6) = 53
@(7) = 27672
@(8) = 20200
@(9) = -13871
@(10) = 21057
@(11) = 16707
@(12) = 18756
@(13) = 20033
:return ;run 
